(vc-name): Move to vc-hooks.el.

diff --git a/lisp/vc.el b/lisp/vc.el
index b619a7b6abebef1aef079d2c69eb8b67edd8f13a..830444feee662a8961f09464e8c94b37ea643277 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -154,13 +154,6 @@ is sensitive to blank lines.")
 
 ;; Random helper functions
 
-(defun vc-name (file)
-  "Return the master name of a file, nil if it is not registered."
-  (or (vc-file-getprop file 'vc-name)
-      (vc-file-setprop file 'vc-name
-                      (let ((name-and-type (vc-registered file)))
-                        (and name-and-type (car name-and-type))))))
-
 (defun vc-registration-error (file)
   (if file
       (error "File %s is not under version control" file)